OUTPUT TO c:\qadguicli\no_routing.txt.
FOR EACH sct_det WHERE sct_sim = "2004-11C" AND sct_site = "510" 
                       AND sct_lbr_tl = 0 AND (sct_mtl_ll <> 0 OR sct_mtl_tl <> 0 ) AND sct_part BEGINS "18",
    EACH ptp_det WHERE ptp_part = sct_part AND ptp_site = sct_site AND ptp_pm_code <> "",
    EACH pt_mstr WHERE pt_part = sct_part :
    DISP sct_part pt_pm_code ptp_pm_code sct_sim sct_site sct_mtl_ll sct_mtl_tl sct_lbr_tl pt_desc1 WITH STREAM-IO WITH WIDTH 300.
END.
